home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / perl5 / ExtUtils / MakeMaker.pm
Text File  |  1995-07-02  |  19KB  |  695 lines
  1. package ExtUtils::MakeMaker;
  2.  
  3. # Authors: Andy Dougherty    <doughera@lafcol.lafayette.edu>
  4. #       Andreas Koenig    <k@franz.ww.TU-Berlin.DE>
  5. #       Tim Bunce        <Tim.Bunce@ig.co.uk>
  6.  
  7. # Last Revision: 12 Oct 1994
  8.  
  9. # This utility is designed to write a Makefile for an extension 
  10. # module from a Makefile.PL. It is based on the excellent Makefile.SH
  11. # model provided by Andy Dougherty and the perl5-porters. 
  12.  
  13. # It splits the task of generating the Makefile into several
  14. # subroutines that can be individually overridden.
  15. # Each subroutine returns the text it wishes to have written to
  16. # the Makefile.
  17.  
  18. use Config;
  19. require Exporter;
  20. @ISA = qw(Exporter);
  21. @EXPORT = qw(writeMakefile mkbootstrap $Verbose);
  22. @EXPORT_OK = qw(%att @recognized_att_keys);
  23.  
  24. use strict qw(refs);
  25.  
  26. # Setup dummy package:
  27. # MY exists for overriding methods to be defined within
  28. unshift(@MY::ISA, qw(MM));
  29.  
  30. $Verbose = 0;
  31. $Subdirs = 0;    # set to 1 to have this .PL run all below
  32. $^W=1;
  33.  
  34.  
  35. # For most extensions it will do to call
  36. #
  37. #   use ExtUtils::MakeMaker
  38. #   &writeMakefile("potential_libs" => "-L/usr/alpha -lfoo -lbar");
  39. #
  40. # from Makefile.PL in the extension directory
  41. # It is also handy to include some of the following attributes:
  42. #
  43. @recognized_att_keys=qw(
  44.     TOP INC DISTNAME VERSION DEFINE OBJECT LDTARGET ARMAYBE
  45.     BACKUP_LIBS  AUTOSPLITMAXLEN LINKTYPE
  46.     potential_libs otherldflags perl fullperl
  47.     distclean_tarflags
  48.     clean_files realclean_files
  49. );
  50.  
  51. #
  52. # TOP      is the directory above lib/ and ext/ (normally ../..)
  53. #          (MakeMaker will normally work this out for itself)
  54. # INC      is something like "-I/usr/local/Minerva/include"
  55. # DISTNAME is a name of your choice for distributing the package
  56. # VERSION  is your version number
  57. # DEFINE   is something like "-DHAVE_UNISTD_H"
  58. # OBJECT   defaults to '$(BASEEXT).o', but can be a long string containing 
  59. #          all object files, e.g. "tkpBind.o tkpButton.o tkpCanvas.o"
  60. # LDTARGET defaults to $(OBJECT) and is used in the ld command
  61. #          (some machines need additional switches for bigger projects)
  62. # ARMAYBE  defaults to ":", but can be used to run ar before ld
  63. # BACKUP_LIBS is an anonymous array of libraries to be searched for
  64. #          until we get at least some output from ext/util/extliblist
  65. #          'potential_libs' => "-lgdbm",
  66. #          'BACKUP_LIBS' => [ "-ldbm -lfoo", "-ldbm.nfs" ]
  67. # AUTOSPLITMAXLEN defaults to 8 and is used when autosplit is done
  68. #          (can be set higher on a case-by-case basis)
  69. # defaults to `dynamic', can be set to `static'
  70.  
  71. #
  72. # `make distclean'  builds $(DISTNAME)-$(VERSION).tar.Z after a clean
  73.  
  74. # Be aware, that you can also pass attributes into the %att hash table
  75. # by calling Makefile.PL with an argument of the form TOP=/some/where.
  76.  
  77. # If the Makefile generated by default does not fit your purpose,
  78. # you may specify private subroutines in the Makefile.PL as there are:
  79. #
  80. # MY->initialize        =>   sub MY::initialize{ ... }
  81. # MY->post_initialize   =>   sub MY::post_initialize{ ... }
  82. # MY->constants         =>   etc
  83. # MY->dynamic
  84. # etc. (see function writeMakefile, for the current breakpoints)
  85. #
  86. # Each subroutines returns the text it wishes to have written to
  87. # the Makefile. To override a section of the Makefile you can
  88. # either say:     sub MY::co { "new literal text" }
  89. # or you can edit the default by saying something like:
  90. #    sub MY::co { $_=MM->co; s/old text/new text/; $_ }
  91. #
  92. # If you still need a different solution, try to develop another 
  93. # subroutine, that fits your needs and submit the diffs to 
  94. # perl5-porters or comp.lang.perl as appropriate.
  95.  
  96. sub writeMakefile {
  97.     %att = @_;
  98.     local($\)="\n";
  99.  
  100.     foreach (@ARGV){
  101.     $att{$1}=$2 if m/(.*)=(.*)/;
  102.     }
  103.     print STDOUT "MakeMaker" if $Verbose;
  104.     print STDOUT map("    $_ = '$att{$_}'\n", sort keys %att) if ($Verbose && %att);
  105.  
  106.     MY->initialize();
  107.  
  108.     print STDOUT "Writing ext/$att{FULLEXT}/Makefile (with variable substitutions)";
  109.  
  110.     open MAKE, ">Makefile" or die "Unable to open Makefile: $!";
  111.  
  112.     MY->mkbootstrap(split(" ", $att{'dynaloadlibs'}));
  113.     print MAKE MY->post_initialize;
  114.  
  115.     print MAKE MY->constants;
  116.     print MAKE MY->post_constants;
  117.  
  118.     print MAKE MY->subdir if $Subdirs;
  119.     print MAKE MY->dynamic;
  120.     print MAKE MY->force;
  121.     print MAKE MY->static;
  122.     print MAKE MY->co;
  123.     print MAKE MY->c;
  124.     print MAKE MY->installpm;
  125.     print MAKE MY->clean;
  126.     print MAKE MY->realclean;
  127.     print MAKE MY->test;
  128.     print MAKE MY->install;
  129.     print MAKE MY->perldepend;
  130.     print MAKE MY->distclean;
  131.     print MAKE MY->postamble;
  132.  
  133.     MY->finish;
  134.  
  135.     close MAKE;
  136.  
  137.     1;
  138. }
  139.  
  140.  
  141. sub mkbootstrap{
  142.     MY->mkbootstrap(@_)
  143. }
  144.  
  145.  
  146. sub avoid_typo_warnings{
  147.     local($t) = "$t
  148.     $main::writeMakefile
  149.     $main::mkbootstrap
  150.     $main::Verbose
  151.     $DynaLoader::dl_resolve_using
  152.     $ExtUtils::MakeMaker::Config
  153.     $DynaLoader::Config
  154.     ";
  155. }
  156.  
  157.  
  158. # --- Supply the MakeMaker default methods ---
  159.  
  160. package MM;
  161.  
  162. use Config;
  163. require Exporter;
  164.  
  165. Exporter::import('ExtUtils::MakeMaker', qw(%att @recognized_att_keys));
  166.  
  167. # These attributes cannot be overridden
  168. @other_att_keys=qw(extralibs dynaloadlibs statloadlibs bootdep);
  169.  
  170.  
  171. sub find_perl{
  172.     my($self, $ver, $names, $dirs, $trace) = @_;
  173.     my($name, $dir);
  174.     print "Looking for perl $ver by these names: @$names, in these dirs: @$dirs\n"
  175.     if ($trace);
  176.     foreach $dir (@$dirs){
  177.     foreach $name (@$names){
  178.         print "checking $dir/$name\n" if ($trace >= 2);
  179.         next unless -x "$dir/$name";
  180.         print "executing $dir/$name\n" if ($trace);
  181.         my($out) = `$dir/$name -e 'require $ver; print "5OK\n" ' 2>&1`;
  182.         return "$dir/$name" if $out =~ /5OK/;
  183.     }
  184.     }
  185.     warn "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
  186.     0; # false and not empty
  187. }
  188.  
  189.  
  190. sub initialize {
  191.     # Find out directory name.  This is also the extension name.
  192.     chop($pwd=`pwd`);
  193.  
  194.     unless ( $top = $att{TOP} ){
  195.     foreach(qw(../.. ../../.. ../../../..)){
  196.         ($top=$_, last) if -f "$_/config.sh";
  197.     }
  198.     die "Can't find config.sh" unless -f "$top/config.sh";
  199.     }
  200.     chdir $top or die "Couldn't chdir $top: $!";
  201.     chop($abstop=`pwd`);
  202.     chdir $pwd;
  203.  
  204.     # EXTMODNAME = The perl module name for this extension.
  205.     # FULLEXT = Full pathname to extension directory.
  206.     # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  207.     # ROOTEXT = Directory part of FULLEXT. May be empty.
  208.     my($p) = $pwd; $p =~ s:^\Q$abstop/ext/\E::;
  209.     ($att{EXTMODNAME}=$p) =~ s#/#::#g ;        #eg. BSD::Foo::Socket
  210.     ($att{FULLEXT}   =$p);            #eg. BSD/Foo/Socket
  211.     ($att{BASEEXT}   =$p) =~ s:.*/:: ;        #eg. Socket
  212.     ($att{ROOTEXT}   =$p) =~ s:/?\Q$att{BASEEXT}\E$:: ; #eg. BSD/Foo
  213.  
  214.     # Find Perl 5. The only contract here is that both 'perl' and 'fullperl'
  215.     # will be working versions of perl 5.
  216.     $att{'perl'} = MY->find_perl(5.0, [ qw(perl5 perl miniperl) ],
  217.                 [ $abstop, split(":", $ENV{PATH}) ], 0 )
  218.         unless ($att{'perl'} && -x $att{'perl'});
  219.  
  220.     # Define 'fullperl' to be a non-miniperl (used in test: target)
  221.     ($att{'fullperl'} = $att{'perl'}) =~ s/miniperl$/perl/
  222.     unless ($att{'fullperl'} && -x $att{'fullperl'});
  223.  
  224.     for $key (@recognized_att_keys, @other_att_keys){
  225.     # avoid warnings for uninitialized vars
  226.     $att{$key} = "" unless defined $att{$key};
  227.     }
  228.  
  229.     # compute extralibs, dynaloadlibs and statloadlibs from
  230.     # $att{'potential_libs'}
  231.  
  232.     unless ( &run_extliblist($att{'potential_libs'}) ){
  233.        foreach ( @{$att{'BACKUP_LIBS'} || []} ){
  234.            #  Try again.  Maybe they have specified some other libraries
  235.            last if  &run_extliblist($_);
  236.        }
  237.     }
  238. }
  239.  
  240.  
  241. sub run_extliblist {
  242.     my($potential_libs)=@_;
  243.     # Now run ext/util/extliblist to discover what *libs definitions
  244.     # are required for the needs of $potential_libs
  245.     $ENV{'potential_libs'} = $potential_libs;
  246.     $_=`. $abstop/ext/util/extliblist;
  247.     echo extralibs=\$extralibs
  248.     echo dynaloadlibs=\$dynaloadlibs
  249.     echo statloadlibs=\$statloadlibs
  250.     echo bootdep=\$bootdep
  251.     `;
  252.     my(@w);
  253.     foreach $line (split "\n", $_){
  254.     chomp $line;
  255.     if ($line =~ /(.*)\s*=\s*(.*)$/){
  256.         $att{$1} = $2;
  257.         print STDERR "    $1 = $2" if $Verbose;
  258.     }else{
  259.         push(@w, $line);
  260.     }
  261.     }
  262.     print STDERR "Messages from extliblist:\n", join("\n",@w,'')
  263.        if @w ;
  264.     join '', @att{qw(extralibs dynaloadlibs statloadlibs)};
  265. }
  266.  
  267.  
  268. sub post_initialize{
  269.     "";
  270. }
  271.  
  272.  
  273. sub constants {
  274.     my(@m);
  275.  
  276.     $att{BOOTDEP}  = (-f "$att{BASEEXT}_BS") ? "$att{BASEEXT}_BS" : "";
  277.     $att{OBJECT}   = '$(BASEEXT).o' unless $att{OBJECT};
  278.     $att{LDTARGET} = '$(OBJECT)'    unless $att{LDTARGET};
  279.     $att{ARMAYBE}  = ":"            unless $att{ARMAYBE};
  280.     $att{AUTOSPLITMAXLEN} = 8       unless $att{AUTOSPLITMAXLEN};
  281.     $att{LINKTYPE} = ($Config{'usedl'}) ? 'dynamic' : 'static'
  282.     unless $att{LINKTYPE};
  283.  
  284.  
  285.     push @m, "
  286. #
  287. # This Makefile is for the $att{FULLEXT} extension to perl.
  288. # It was written by Makefile.PL, so don't edit it, edit
  289. # Makefile.PL instead. ANY CHANGES MADE HERE WILL BE LOST!
  290. # 
  291.  
  292. DISTNAME = $att{DISTNAME}
  293. VERSION = $att{VERSION}
  294.  
  295. TOP = $top
  296. ABSTOP = $abstop
  297. PERL = $att{'perl'}
  298. FULLPERL = $att{'fullperl'}
  299. INC = $att{INC}
  300. DEFINE = $att{DEFINE}
  301. OBJECT = $att{OBJECT}
  302. LDTARGET = $att{LDTARGET}
  303. ";
  304.  
  305.     push @m, "
  306. CC = $Config{'cc'}
  307. LIBC = $Config{'libc'}
  308. LDFLAGS = $Config{'ldflags'}
  309. CLDFLAGS = $Config{'ldflags'}
  310. LINKTYPE = $att{LINKTYPE}
  311. ARMAYBE = $att{ARMAYBE}
  312. RANLIB = $Config{'ranlib'}
  313.  
  314. SMALL = $Config{'small'}
  315. LARGE = $Config{'large'} $Config{'split'}
  316. # The following are used to build and install shared libraries for
  317. # dynamic loading.
  318. LDDLFLAGS = $Config{'lddlflags'}
  319. CCDLFLAGS = $Config{'ccdlflags'}
  320. CCCDLFLAGS = $Config{'cccdlflags'}
  321. SO = $Config{'so'}
  322. DLEXT = $Config{'dlext'}
  323. DLSRC = $Config{'dlsrc'}
  324. ";
  325.  
  326.     push @m, "
  327. # $att{FULLEXT} might need to be linked with some extra libraries.
  328. # EXTRALIBS =  full list of libraries needed for static linking.
  329. #        Only those libraries that actually exist are included.
  330. # DYNALOADLIBS = list of those libraries that are needed but can be
  331. #        linked in dynamically on this platform.  On SunOS, for
  332. #        example, this would be .so* libraries, but not archive
  333. #        libraries.  The bootstrap file is installed only if
  334. #        this list is not empty.
  335. # STATLOADLIBS = list of those libraries which must be statically
  336. #        linked into the shared library.  On SunOS 4.1.3, 
  337. #        for example,  I have only an archive version of
  338. #        -lm, and it must be linked in statically.
  339. EXTRALIBS = $att{'extralibs'}
  340. DYNALOADLIBS = $att{'dynaloadlibs'}
  341. STATLOADLIBS = $att{'statloadlibs'}
  342.  
  343. ";
  344.  
  345.     push @m, "
  346. # EXTMODNAME = The perl module name for this extension.
  347. # FULLEXT = Full pathname to extension directory.
  348. # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
  349. # ROOTEXT = Directory part of FULLEXT. May be empty.
  350. EXTMODNAME = $att{EXTMODNAME}
  351. FULLEXT = $att{FULLEXT}
  352. BASEEXT = $att{BASEEXT}
  353. ROOTEXT = $att{ROOTEXT}
  354. # and for backward compatibility and for AIX support (due to change!)
  355. EXT = $att{BASEEXT}
  356.  
  357. # $att{FULLEXT} might have its own typemap
  358. EXTTYPEMAP = ".(-f "typemap" ? "typemap" : "")."
  359. # $att{FULLEXT} might have its own bootstrap support
  360. BOOTSTRAP = $att{BASEEXT}.bs
  361. BOOTDEP = $att{BOOTDEP}
  362. ";
  363.  
  364.     push @m, '
  365. # Where to put things:
  366. AUTO = $(TOP)/lib/auto
  367. AUTOEXT = $(TOP)/lib/auto/$(FULLEXT)
  368. INST_BOOT = $(AUTOEXT)/$(BASEEXT).bs
  369. INST_DYNAMIC = $(AUTOEXT)/$(BASEEXT).$(DLEXT)
  370. INST_STATIC = $(BASEEXT).a
  371. INST_PM = $(TOP)/lib/$(FULLEXT).pm
  372. '."
  373. # These two are only used by install: targets
  374. INSTALLPRIVLIB = $Config{'installprivlib'}
  375. INSTALLARCHLIB = $Config{'installarchlib'}
  376. ";
  377.  
  378.     push @m, "\nshellflags = $Config{'shellflags'}" if $Config{'shellflags'};
  379.  
  380.     push @m, q{
  381. # Tools
  382. SHELL = /bin/sh
  383. CCCMD = `sh $(shellflags) $(ABSTOP)/cflags $@`
  384. XSUBPP = $(TOP)/ext/xsubpp
  385. # the following is a portable way to say mkdir -p
  386. MKPATH = $(PERL) -we '$$"="/"; foreach(split(/\//,$$ARGV[0])){ push(@p, $$_); next if -d "@p"; print "mkdir @p\n"; mkdir("@p",0777)||die "mkdir @p: $$!" } exit 0;'
  387. AUTOSPLITLIB = cd $(TOP); \
  388.     $(PERL) -Ilib -e 'use AutoSplit; $$AutoSplit::Maxlen=}.$att{AUTOSPLITMAXLEN}.q{; autosplit_lib_modules(@ARGV) ;'
  389. };
  390.  
  391.     push @m, '
  392.  
  393. all :: 
  394.  
  395. config :: Makefile
  396.     @$(MKPATH) $(AUTOEXT)
  397.  
  398. install ::
  399.  
  400. ';
  401.  
  402.     join('',@m);
  403. }
  404.  
  405.  
  406. sub post_constants{
  407.     "";
  408. }
  409.  
  410.  
  411. sub subdir {
  412.     my(@m);
  413.     foreach $MakefilePL (<*/Makefile.PL>){
  414.     ($subdir=$MakefilePL) =~ s:/Makefile\.PL$:: ;
  415.     push @m, "
  416. config ::
  417.     \@cd $subdir ; \\
  418.     if test ! -f Makefile; then \\
  419.     test -f Makefile.PL  && \$(PERL) -I\$(ABSTOP)/lib Makefile.PL TOP=\$(ABSTOP) ; \\
  420.     fi
  421.  
  422. all ::
  423.     cd $subdir ; \$(MAKE) config
  424.     cd $subdir ; \$(MAKE) all
  425. ";
  426.  
  427.     }
  428.     join('',@m);
  429. }
  430.  
  431.  
  432. sub co {
  433.     '
  434. .c.o:
  435.     $(CCCMD) $(CCCDLFLAGS) $(DEFINE) -I$(TOP) $(INC) $*.c
  436. ';
  437. }
  438.  
  439.  
  440. sub force {
  441.     '
  442. # Phony target to force checking subdirectories.
  443. FORCE:
  444. ';
  445. }
  446.  
  447.  
  448. sub dynamic {
  449.     '
  450. all::    $(LINKTYPE)
  451.  
  452. # Target for Dynamic Loading:
  453. dynamic::    $(INST_DYNAMIC) $(INST_PM) $(INST_BOOT)
  454.  
  455. $(INST_DYNAMIC): $(OBJECT)
  456.     @$(MKPATH) $(AUTOEXT)
  457.     $(ARMAYBE) cr $(EXTMODNAME).a $(OBJECT) 
  458.     ld $(LDDLFLAGS) -o $@ $(LDTARGET) '.$att{'otherldflags'}.' $(STATLOADLIBS)
  459.  
  460. $(BOOTSTRAP): $(BOOTDEP)
  461.     $(PERL) -I$(TOP)/lib -e \'use ExtUtils::MakeMaker; &mkbootstrap("$(DYNALOADLIBS)");\'
  462.     touch $(BOOTSTRAP)
  463.  
  464. $(INST_BOOT): $(BOOTSTRAP)
  465.     @test ! -s $(BOOTSTRAP) || cp $(BOOTSTRAP) $@
  466. ';
  467. }
  468.  
  469.  
  470. sub static {
  471.     '
  472. # Target for Static Loading:
  473. static:: $(INST_STATIC) $(INST_PM)
  474.  
  475. $(INST_STATIC): $(OBJECT)
  476.     ar cr $@ $(OBJECT)
  477.     $(RANLIB) $@
  478.     echo $(EXTRALIBS) >> $(TOP)/ext.libs
  479. ';
  480. }
  481.  
  482.  
  483. sub c {
  484.     '
  485. $(BASEEXT).c:    $(BASEEXT).xs $(XSUBPP) $(TOP)/ext/typemap $(EXTTYPEMAP) $(TOP)/cflags
  486.     $(PERL) $(XSUBPP) $(BASEEXT).xs >tmp
  487.     mv tmp $@
  488. ';
  489. }
  490.  
  491.  
  492. sub installpm {
  493.     '
  494. $(INST_PM):    $(BASEEXT).pm
  495.     @$(MKPATH) $(TOP)/lib/$(ROOTEXT)
  496.     rm -f $@
  497.     cp $(BASEEXT).pm $@
  498.     @$(AUTOSPLITLIB) $(EXTMODNAME)
  499. ';
  500. }
  501.  
  502.  
  503. sub clean {
  504.     '
  505. clean::
  506.     rm -f *.o *.a mon.out core $(BASEEXT).c so_locations
  507.     rm -f makefile Makefile $(BOOTSTRAP) $(BASEEXT).bso '.$att{'clean_files'}.'
  508. ';
  509. }
  510.  
  511.  
  512. sub realclean {
  513.     '
  514. realclean::     clean
  515.     rm -f $(INST_DYNAMIC) $(INST_STATIC) $(INST_BOOT)
  516.     rm -rf $(INST_PM) $(AUTOEXT) '.$att{'realclean_files'}.'
  517.  
  518. purge:    realclean
  519. ';
  520. }
  521.  
  522.  
  523. sub test {
  524.     '
  525. test: all
  526.     $(FULLPERL) -I$(TOP)/lib -e \'use Test::Harness; runtests @ARGV;\' t/*.t
  527. ';
  528. }
  529.  
  530.  
  531. sub install {
  532.     '
  533. # used if installperl will not be installing it for you
  534. install:: all
  535.     # not yet defined
  536. ';
  537. }
  538.  
  539.  
  540. sub distclean {
  541.     my($tarflags) = $att{'distclean_tarflags'} || 'cvf';
  542.     '
  543. distclean:     clean
  544.     rm -f Makefile *~ t/*~
  545.     cd ..; tar '.$tarflags.' "$(DISTNAME)-$(VERSION).tar" $(BASEEXT)
  546.     cd ..; compress "$(DISTNAME)-$(VERSION).tar"
  547. ';
  548. }
  549.  
  550.  
  551. sub perldepend {
  552.     '
  553. $(OBJECT) : Makefile
  554. $(OBJECT) : $(TOP)/EXTERN.h
  555. $(OBJECT) : $(TOP)/INTERN.h
  556. $(OBJECT) : $(TOP)/XSUB.h
  557. $(OBJECT) : $(TOP)/av.h
  558. $(OBJECT) : $(TOP)/cop.h
  559. $(OBJECT) : $(TOP)/cv.h
  560. $(OBJECT) : $(TOP)/dosish.h
  561. $(OBJECT) : $(TOP)/embed.h
  562. $(OBJECT) : $(TOP)/form.h
  563. $(OBJECT) : $(TOP)/gv.h
  564. $(OBJECT) : $(TOP)/handy.h
  565. $(OBJECT) : $(TOP)/hv.h
  566. $(OBJECT) : $(TOP)/keywords.h
  567. $(OBJECT) : $(TOP)/mg.h
  568. $(OBJECT) : $(TOP)/op.h
  569. $(OBJECT) : $(TOP)/opcode.h
  570. $(OBJECT) : $(TOP)/patchlevel.h
  571. $(OBJECT) : $(TOP)/perl.h
  572. $(OBJECT) : $(TOP)/perly.h
  573. $(OBJECT) : $(TOP)/pp.h
  574. $(OBJECT) : $(TOP)/proto.h
  575. $(OBJECT) : $(TOP)/regcomp.h
  576. $(OBJECT) : $(TOP)/regexp.h
  577. $(OBJECT) : $(TOP)/scope.h
  578. $(OBJECT) : $(TOP)/sv.h
  579. $(OBJECT) : $(TOP)/unixish.h
  580. $(OBJECT) : $(TOP)/util.h
  581. $(TOP)/config.h:        $(TOP)/config.sh; cd $(TOP); /bin/sh config_h.SH
  582. $(TOP)/embed.h: $(TOP)/config.sh; cd $(TOP); /bin/sh embed_h.SH
  583. $(TOP)/cflags:  $(TOP)/config.sh; cd $(TOP); /bin/sh cflags.SH
  584.  
  585. Makefile:    Makefile.PL
  586.     $(PERL) -I$(TOP)/lib Makefile.PL
  587. ';
  588. }
  589.  
  590.  
  591. sub postamble{
  592.     "";
  593. }
  594.  
  595.  
  596. sub finish {
  597.     chmod 0644, "Makefile";
  598.     system("$Config{'eunicefix'} Makefile") unless $Config{'eunicefix'} eq ":";
  599. }
  600.  
  601.  
  602.  
  603. sub mkbootstrap {
  604. #
  605. # mkbootstrap, by:
  606. #
  607. #    Andreas Koenig <k@otto.ww.TU-Berlin.DE>
  608. #    Tim Bunce <Tim.Bunce@ig.co.uk>
  609. #    Andy Dougherty <doughera@lafcol.lafayette.edu>
  610. #
  611. #  This perl script attempts to make a bootstrap file for use by this
  612. #  system's DynaLoader. It typically gets called from an extension
  613. #  Makefile.
  614. #
  615. # There is no .bs file supplied with the extension. Instead a _BS
  616. # file which has code for the special cases, like posix for berkeley db
  617. # on the NeXT.
  618. # 
  619. # This file will get parsed, and produce a maybe empty
  620. # @DynaLoader::dl_resolve_using array for the current architecture.
  621. # That will be extended by $dynaloadlibs, which was computed by Andy's
  622. # extliblist script. If this array still is empty, we do nothing, else
  623. # we write a .bs file with an @DynaLoader::dl_resolve_using array, but
  624. # without any `if's, because there is no longer a need to deal with
  625. # special cases.
  626. # 
  627. # The _BS file can put some code into the generated .bs file by placing
  628. # it in $bscode. This is a handy 'escape' mechanism that may prove
  629. # useful in complex situations.
  630. # 
  631. # If @DynaLoader::dl_resolve_using contains -L* or -l* entries then
  632. # mkbootstrap will automatically add a dl_findfile() call to the
  633. # generated .bs file.
  634. #
  635.     my($self, @dynaloadlibs)=@_;
  636.     print STDERR "    dynaloadlibs=@dynaloadlibs" if $Verbose;
  637.     require DynaLoader; # we need DynaLoader, if the *_BS gets interpreted
  638.     import DynaLoader;  # we don't say `use', so if DynaLoader is not 
  639.               # yet built MakeMaker works nonetheless except here
  640.  
  641.     &initialize unless defined $att{'perl'};
  642.  
  643.     rename "$att{BASEEXT}.bs", "$att{BASEEXT}.bso";
  644.  
  645.     if (-f "$att{BASEEXT}_BS"){
  646.     $_ = "$att{BASEEXT}_BS";
  647.     package DynaLoader; # execute code as if in DynaLoader
  648.     local($osname, $dlsrc) = (); # avoid warnings
  649.     ($osname, $dlsrc) = @Config{qw(osname dlsrc)};
  650.     $bscode = "";
  651.     unshift @INC, ".";
  652.     require $_;
  653.     }
  654.  
  655.     if ($Config{'dlsrc'} =~ /^dl_dld/){
  656.     package DynaLoader;
  657.     push(@dl_resolve_using, dl_findfile('-lc'));
  658.     }
  659.  
  660.     my(@all) = (@dynaloadlibs, @DynaLoader::dl_resolve_using);
  661.     my($method) = '';
  662.     if (@all){
  663.     open BS, ">$att{BASEEXT}.bs"
  664.         or die "Unable to open $att{BASEEXT}.bs: $!";
  665.     print STDOUT "Writing $att{BASEEXT}.bs\n";
  666.     print STDOUT "    containing: @all" if $Verbose;
  667.     print BS "# $att{BASEEXT} DynaLoader bootstrap file for $Config{'osname'} architecture.\n";
  668.     print BS "# Do not edit this file, changes will be lost.\n";
  669.     print BS "# This file was automatically generated by the\n";
  670.     print BS "# mkbootstrap routine in ExtUtils/MakeMaker.pm.\n";
  671.     print BS "\@DynaLoader::dl_resolve_using = ";
  672.     if (" @all" =~ m/ -[lL]/){
  673.         print BS "  dl_findfile(qw(\n  @all\n  ));\n";
  674.     }else{
  675.         print BS "  qw(@all);\n";
  676.     }
  677.     # write extra code if *_BS says so
  678.     print BS $DynaLoader::bscode if $DynaLoader::bscode;
  679.     print BS "1;\n";
  680.     close BS;
  681.     }
  682.  
  683.     if ($Config{'dlsrc'} =~ /^dl_aix/){
  684.        open AIX, ">$att{BASEEXT}.exp";
  685.        print AIX "#!\nboot_$att{BASEEXT}\n";
  686.        close AIX;
  687.     }
  688. }
  689.  
  690. # the following makes AutoSplit happy (bug in perl5b3e)
  691. package ExtUtils::MakeMaker;
  692. 1;
  693.  
  694. __END__
  695.